home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / lib / c / string / strsep.c < prev    next >
C/C++ Source or Header  |  1991-08-05  |  2KB  |  73 lines
  1. /*
  2.  * Copyright (c) 1988 The Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms are permitted
  6.  * provided that the above copyright notice and this paragraph are
  7.  * duplicated in all such forms and that any documentation,
  8.  * advertising materials, and other materials related to such
  9.  * distribution and use acknowledge that the software was developed
  10.  * by the University of California, Berkeley.  The name of the
  11.  * University may not be used to endorse or promote products derived
  12.  * from this software without specific prior written permission.
  13.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  14.  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  15.  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  16.  */
  17.  
  18. #ifndef lint
  19. static char rcsid[] = "$Header: /sprite/src/lib/c/string/RCS/strsep.c,v 1.2 91/08/05 16:48:37 shirriff Exp $ SPRITE (Berkeley)";
  20. #endif /* not lint */
  21.  
  22. #include <stdio.h>
  23.  
  24. /*
  25.  *----------------------------------------------------------------------
  26.  *
  27.  * strsep --
  28.  *
  29.  *      Extract tokens separated by single separators (similar to strtok).
  30.  *
  31.  * Results:
  32.  *      Returns pointer to next token in the string.
  33.  *
  34.  * Side effects:
  35.  *      Sets token to NULL.  Keeps track of str.
  36.  *
  37.  *----------------------------------------------------------------------
  38.  */
  39.  
  40. char *
  41. strsep(s, delim)
  42.     register char *s, *delim;
  43. {
  44.     register char *spanp;
  45.     register int c, sc;
  46.     static char *last;
  47.     char *tok;
  48.  
  49.     if (s == NULL && (s = last) == NULL)
  50.         return(NULL);
  51.  
  52.     /*
  53.      * Scan token (scan for delimiters: s += strcspn(s, delim), sort of).
  54.      * Note that delim must have one NUL; we stop if we see that, too.
  55.      */
  56.     for (tok = s;; ++s) {
  57.         c = *s;
  58.         spanp = delim;
  59.         do {
  60.             if ((sc = *spanp++) == c) {
  61.                 if (c == 0) {
  62.                     last = NULL;
  63.                     return(tok == s ? NULL : tok);
  64.                 }
  65.                 *s++ = '\0';
  66.                 last = s;
  67.                 return(tok);
  68.             }
  69.         } while (sc);
  70.     }
  71.     /* NOTREACHED */
  72. }
  73.